home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / ham antennas (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  121 lines
  1. 1 REM"HAM ANTENNAS BY RAK ELECTRONICS PO BOX 1585 ORANGE PARK, FL 32073"
  2. 100 POKE53280,1:POKE53281,1:PRINT"[147][144]           ***HAM ANTENNAS***"
  3. 110 PRINTTAB(10)"A - GROUND PLANE"
  4. 120 PRINTTAB(10)"B - YAGI"
  5. 130 PRINTTAB(10)"C - DIPOLE"
  6. 140 PRINTTAB(10)"D - DELTA LOOP BEAM"
  7. 150 PRINTTAB(10)"SELECT A, B, C OR D"
  8. 160 GETB$:IFB$=""THEN160
  9. 170 IFB$="A"THEN1000
  10. 180 IFB$="B"THEN2000
  11. 190 IFB$="C"THEN3000
  12. 195 IFB$="D"THEN4000
  13. 200 GOTO100
  14. 1000 PRINT"[147]"TAB(9)"*GROUND PLANE ANTENNA*"
  15. 1001 PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 1120 PRINT" ENTER THE DESIGN  FREQUENCY IN MHZ"
  17. 1125 INPUT F
  18. 1130 PRINT"[147]"TAB(9)"*GROUND PLANE ANTENNA*"
  19. 1131 PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  20. 1140 PRINTTAB(14)"FOR"F"MHZ"
  21. 1150 H=936/F*.28:H=INT(H*100+.5)/100
  22. 1160 R=1.05*H:R=INT(R*100+.5)/100
  23. 1170 PRINT"THE VERTICAL RADIATOR RADIATOR SHOULD BE"H"FT."
  24. 1190 PRINT"THE RADIALS SHOULD BE"R"FT."
  25. 1210 PRINT"THE IMPEDANCE MAY VARY WITH THE DIAMETER"
  26. 1220 PRINT"OF THE RADISTOR. TRY CHANGING THE LENGTH"
  27. 1225 PRINT"OF THE RADIATOR TO MATCH THE FEED LINE."
  28. 1230 GOSUB5000
  29. 1240 PRINT"[147]"TAB(9)"*GROUND PLANE ANTENNA*"
  30. 1241 PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  31. 1250 FORI=1TO10:PRINTTAB(20)"[182][181]":NEXT
  32. 1260 PRINTTAB(9)"[145][145][145][145][145][145]RADIATOR":PRINTTAB(9)H"FT."
  33. 1270 PRINTTAB(11)"[163][163][163][163][163][163][163][163][163][208][207][163][163][163][163][163][163][163][163][163]"
  34. 1275 PRINTTAB(9)"RADIALS":PRINTTAB(9)R"FT"
  35. 1280 GOSUB5000
  36. 1281 GOTO100
  37. 2000 PRINT"[147]"TAB(11)"***YAGI DESIGN***"
  38. 2010 PRINT"WHAT IS THE OPERATING FREQUENCY IN MHZ"
  39. 2030 INPUT F
  40. 2040 IF F<1.8THEN2060
  41. 2050 GOTO2070
  42. 2060 PRINT"THAT FREQ IS OUTSIDE THE HAM BANDS":GOTO2020
  43. 2070 IF F<109THEN2100
  44. 2080 V=234:GOTO 2110
  45. 2100 V=126+F
  46. 2110 S=V/F
  47. 2120 S=INT(S*100+.5)/100
  48. 2130 L=2*S:R=500/F
  49. 2140 R=INT(R*100+.5)/100
  50. 2150 D=475/F
  51. 2160 D=INT(D*100+.5)/100
  52. 2170 H=455/F
  53. 2180 H=INT(H*100+.5)/100
  54. 2200 PRINT"[147]"TAB(11)"***YAGI DESIGN***"
  55. 2205 PRINTTAB(14)"FOR"F"MHZ."
  56. 2210 PRINT" DIMENSIONS OF THE 3 ELEMENT WIDE SPACED YAGI ARE:"
  57. 2220 PRINT" OVERALL BOOM LENGTH IS"L"FT."
  58. 2230 PRINT" SPACING OF ELEMENTS IS"S"FT."
  59. 2240 PRINT" THE FEED POINT Z AT"F"MHZ WILL BE"
  60. 2250 PRINT"[160]ABOUT 35 OHMS AND THE GAIN ABOUT 7.5"
  61. 2255 PRINT" DB. THE F/B RATIO WILL BE UP TO 30 DB."
  62. 2260 GOSUB5000
  63. 2270 PRINT"[147]"TAB(11)"***YAGI DESIGN***"
  64. 2275 PRINTTAB(14)"FOR"F"MHZ."
  65. 2280 PRINTTAB(5)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] [146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  66. 2290 PRINTTAB(7)"DIRECTOR"
  67. 2300 PRINTTAB(6)H"FT.[145][145]"
  68. 2310 FORI=1TO14:PRINTTAB(20)" [146]":NEXT
  69. 2320 PRINTTAB(4)"[145][145][145][145][145][145][145][145][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] [146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  70. 2330 PRINTTAB(7)"DRIVEN":PRINTTAB(6)D"FT."
  71. 2340 PRINTTAB(3)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  72. 2350 PRINTTAB(7)"REFLECTOR":PRINTTAB(6)R"FT."
  73. 2360 PRINTTAB(23)"[145][145][145][145][145][145][145][145][145][145][145][145][145]BOOM":PRINTTAB(22)L"FT."
  74. 2380 GOSUB5000
  75. 2385 GOTO100
  76. 3000 PRINT"[147]"TAB(10)"***DIPOLE ANTENNA***"
  77. 3010 PRINT" INPUT THE DESIGN FREQUENCY IN MHZ."
  78. 3020 INPUTF
  79. 3030 N=7:L=468/F:R=L*30.48:L=INT(L*100+.5)/100:U=L/2:V=R/2
  80. 3040 PRINT"[147]"TAB(10)"***DIPOLE ANTENNA***"
  81. 3045 PRINTTAB(14)"FOR"F"MHZ."
  82. 3050 PRINT"     TOTAL LENGTH IS"L"FT."
  83. 3070 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  84. 3080 PRINT"     LENGTH OF EACH LEG IS"U"FT."
  85. 3100 GOSUB5000
  86. 3110 GOTO100
  87. 4000 PRINT"[147]"TAB(9)"**DELTA LOOP ANTENNA**"
  88. 4010 PRINT" INPUT THE DESIGN FREQUENCY IN MHZ.":INPUTF
  89. 4020 R=1030/F:T=R/3:D=1005/F:E=D/3:S=984/F*.2
  90. 4021 T=INT(T*100+.5)/100:E=INT(E*100+.5)/100:S=INT(S*100+.5)/100
  91. 4030 PRINT"[145][145][145]THE DELTA LOOP BEAM ANTENNA HAS 2"
  92. 4032 PRINT"ELEMENTS USING 3/4 INCH ALUMINUM TUBING"
  93. 4035 PRINT"FOR THE SIDE LEGS AND #12 COPPER WIRE"
  94. 4040 PRINT"FOR THE TOP. THE FEED POINT CAN BE TO"
  95. 4042 PRINT"EITHER LEG OF THE DRIVEN ELEMENT. A"
  96. 4045 PRINT"GAMMA TYPE FEED SYSTEM GIVES THE BEST"
  97. 4050 PRINT"PERFORMANCE."
  98. 4065 PRINT"MEASUREMENTS FOR"F"MHZ ARE:"
  99. 4070 PRINT"DRIVEN ELEMENT[146]":PRINT" TOP="E"FT.":PRINT" SIDE="E"FT."
  100. 4075 PRINT"REFLECTOR ELEMENT[146]":PRINT" TOP="T"FT.":PRINT" SIDE="T"FT."
  101. 4080 PRINT"BOOM LENGTH="S"FT."
  102. 4090 GOSUB5000
  103. 4100 PRINT"[147]"TAB(9)"**DELTA LOOP ANTENNA**"
  104. 4105 PRINTTAB(14)"FOR"F"MHZ."
  105. 4110 PRINTTAB(6)"REFLECTOR"TAB(26)"DRIVEN"
  106. 4115 PRINTTAB(5)T"FT."TAB(25)E"FT."
  107. 4117 PRINTTAB(6)"EACH SIDE"TAB(26)"EACH SIDE"
  108. 4120 PRINTTAB(5)"[175][175][175][175][175][175][175][175][175][175]"TAB(25)"[175][175][175][175][175][175][175][175][175][175]"
  109. 4130 PRINTTAB(5)"[205]        [206]"TAB(25)"[205]        [206]"
  110. 4135 PRINTTAB(5)" [205]      [206]"TAB(25)" [205]      [206]"
  111. 4140 PRINTTAB(5)"  [205]    [206]"TAB(25)"  [205]    [206]"
  112. 4145 PRINTTAB(5)"   [205]  [206]"TAB(25)"   [205]  [206]"
  113. 4150 PRINTTAB(5)"    [205][206]"TAB(25)"    [205][206]"
  114. 4155 PRINTTAB(10)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  115. 4160 PRINTTAB(14)"BOOM"S"FT."
  116. 4170 GOSUB5000
  117. 4180 GOTO100
  118. 5000 PRINTTAB(14)"HIT ANY KEY"
  119. 5001 GETA$:IFA$=""THEN5001
  120. 5002 RETURN
  121.